home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_140735.txt < prev    next >
Text File  |  1990-08-14  |  15KB  |  774 lines
  1. -- card: 140735 from stack: in
  2. -- bmap block id: 140851
  3. -- flags: 4000
  4. -- background id: 14625
  5. -- name: School (weekly)
  6. ----- HyperTalk script -----
  7. on doMenu menuItem
  8.   if menuItem is "Lock" then
  9.     hide card button "Lock"
  10.   else pass doMenu
  11. end doMenu
  12.  
  13. on groupThree
  14.   if not hilite of target then
  15.     repeat with index = 4 to 9
  16.       set hilite of card button id index to false
  17.     end repeat
  18.     set hilite of target to true
  19.     put short name of target into card field "Class"
  20.   end if
  21. end groupThree
  22.  
  23. on groupFour
  24.   if not hilite of target then
  25.     repeat with index = 10 to 15
  26.       set hilite of card button id index to false
  27.     end repeat
  28.     set hilite of target to true
  29.   end if
  30. end groupFour
  31.  
  32. on groupFive
  33.   if not hilite of target then
  34.     repeat with index = 16 to 21
  35.       set hilite of card button id index to false
  36.     end repeat
  37.     set hilite of target to true
  38.   end if
  39. end groupFive
  40.  
  41. on resetCard
  42.   set hilite of card button id 4 to true
  43.   repeat with index = 5 to 9
  44.     set hilite of card button id index to false
  45.   end repeat
  46.   set hilite of card button id 10 to true
  47.   repeat with index = 11 to 15
  48.     set hilite of card button id index to false
  49.   end repeat
  50.   set hilite of card button id 16 to true
  51.   repeat with index = 17 to 21
  52.     set hilite of card button id index to false
  53.   end repeat
  54.   repeat with index = 22 to 26
  55.     set style of card button id index to opaque
  56.   end repeat
  57.   hide card button "Hilite"
  58.   show card button "Lock"
  59.   put short name of card button id 4 into card field "Class"
  60.   put 0 into card field "Times"
  61. end resetCard
  62.  
  63.  
  64. -- part 1 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=0 top=0 right=342 bottom=512
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: 
  76.  
  77.  
  78. -- part 31 (button)
  79. -- low flags: 00
  80. -- high flags: 0001
  81. -- rect: left=21 top=86 right=98 bottom=33
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Lock
  90.  
  91.  
  92. -- part 2 (button)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=11 top=33 right=48 bottom=26
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 5068 / 5068
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Close
  104. ----- HyperTalk script -----
  105. on mouseDown
  106.   set icon of me to "Close Box Hi"
  107. end mouseDown
  108.  
  109. on mouseLeave
  110.   set icon of me to "Close Box"
  111. end mouseLeave
  112.  
  113. on mouseUp
  114.   set icon of me to "Close Box"
  115.   lock screen
  116.   resetCard
  117.   pop card
  118.   unlock screen
  119. end mouseUp
  120.  
  121.  
  122. -- part 3 (button)
  123. -- low flags: 00
  124. -- high flags: 0000
  125. -- rect: left=4 top=315 right=334 bottom=23
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Legend
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   --get the rect of me
  137.   --put the clickH - item 1 of the rect of me into x
  138.   --put the clickV - item 2 of the rect of me into y
  139.   --if x < y then
  140.   lock screen
  141.   resetCard
  142.   go to card "Legend" of this background
  143.   unlock screen
  144.   --end if
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 4 (button)
  150. -- low flags: 00
  151. -- high flags: 4000
  152. -- rect: left=19 top=74 right=86 bottom=172
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Algebra 11 (1)
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   groupThree
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 5 (button)
  169. -- low flags: 00
  170. -- high flags: 0000
  171. -- rect: left=19 top=86 right=98 bottom=172
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: Algebra 12 (1)
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   groupThree
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 6 (button)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=19 top=98 right=110 bottom=172
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Algebra 12 (2)
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   groupThree
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 7 (button)
  207. -- low flags: 00
  208. -- high flags: 0000
  209. -- rect: left=19 top=110 right=122 bottom=172
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Biology 11 (1)
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   groupThree
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 8 (button)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=19 top=122 right=134 bottom=172
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Biology 12 (1)
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   groupThree
  240. end mouseUp
  241.  
  242.  
  243.  
  244. -- part 9 (button)
  245. -- low flags: 00
  246. -- high flags: 0000
  247. -- rect: left=19 top=134 right=146 bottom=172
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: Biology 12 (2)
  256. ----- HyperTalk script -----
  257. on mouseUp
  258.   groupThree
  259. end mouseUp
  260.  
  261.  
  262.  
  263. -- part 10 (button)
  264. -- low flags: 00
  265. -- high flags: 4000
  266. -- rect: left=198 top=74 right=86 bottom=318
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: 
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   groupFour
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 11 (button)
  283. -- low flags: 00
  284. -- high flags: 0000
  285. -- rect: left=198 top=86 right=98 bottom=318
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: 
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   groupFour
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 12 (button)
  302. -- low flags: 00
  303. -- high flags: 0000
  304. -- rect: left=198 top=98 right=110 bottom=318
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: 
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   groupFour
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part 13 (button)
  321. -- low flags: 00
  322. -- high flags: 0000
  323. -- rect: left=198 top=110 right=122 bottom=318
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: 
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   groupFour
  335. end mouseUp
  336.  
  337.  
  338.  
  339. -- part 14 (button)
  340. -- low flags: 00
  341. -- high flags: 0000
  342. -- rect: left=198 top=122 right=134 bottom=318
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: 
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   groupFour
  354. end mouseUp
  355.  
  356.  
  357.  
  358. -- part 15 (button)
  359. -- low flags: 00
  360. -- high flags: 0000
  361. -- rect: left=198 top=134 right=146 bottom=318
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 0 / 0
  364. -- text alignment: 1
  365. -- font id: 0
  366. -- text size: 12
  367. -- style flags: 0
  368. -- line height: 16
  369. -- part name: 
  370. ----- HyperTalk script -----
  371. on mouseUp
  372.   groupFour
  373. end mouseUp
  374.  
  375.  
  376.  
  377. -- part 16 (button)
  378. -- low flags: 00
  379. -- high flags: 4000
  380. -- rect: left=344 top=74 right=86 bottom=464
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 1
  384. -- font id: 0
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: 
  389. ----- HyperTalk script -----
  390. on mouseUp
  391.   groupFive
  392. end mouseUp
  393.  
  394.  
  395.  
  396. -- part 17 (button)
  397. -- low flags: 00
  398. -- high flags: 0000
  399. -- rect: left=344 top=86 right=98 bottom=464
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 1
  403. -- font id: 0
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 16
  407. -- part name: 
  408. ----- HyperTalk script -----
  409. on mouseUp
  410.   groupFive
  411. end mouseUp
  412.  
  413.  
  414.  
  415. -- part 18 (button)
  416. -- low flags: 00
  417. -- high flags: 0000
  418. -- rect: left=344 top=98 right=110 bottom=464
  419. -- title width / last selected line: 0
  420. -- icon id / first selected line: 0 / 0
  421. -- text alignment: 1
  422. -- font id: 0
  423. -- text size: 12
  424. -- style flags: 0
  425. -- line height: 16
  426. -- part name: 
  427. ----- HyperTalk script -----
  428. on mouseUp
  429.   groupFive
  430. end mouseUp
  431.  
  432.  
  433.  
  434. -- part 19 (button)
  435. -- low flags: 00
  436. -- high flags: 0000
  437. -- rect: left=344 top=110 right=122 bottom=464
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: 
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   groupFive
  449. end mouseUp
  450.  
  451.  
  452.  
  453. -- part 20 (button)
  454. -- low flags: 00
  455. -- high flags: 0000
  456. -- rect: left=344 top=122 right=134 bottom=464
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 0 / 0
  459. -- text alignment: 1
  460. -- font id: 0
  461. -- text size: 12
  462. -- style flags: 0
  463. -- line height: 16
  464. -- part name: 
  465. ----- HyperTalk script -----
  466. on mouseUp
  467.   groupFive
  468. end mouseUp
  469.  
  470.  
  471.  
  472. -- part 21 (button)
  473. -- low flags: 00
  474. -- high flags: 0000
  475. -- rect: left=344 top=134 right=146 bottom=464
  476. -- title width / last selected line: 0
  477. -- icon id / first selected line: 0 / 0
  478. -- text alignment: 1
  479. -- font id: 0
  480. -- text size: 12
  481. -- style flags: 0
  482. -- line height: 16
  483. -- part name: 
  484. ----- HyperTalk script -----
  485. on mouseUp
  486.   groupFive
  487. end mouseUp
  488.  
  489.  
  490.  
  491. -- part 22 (button)
  492. -- low flags: 00
  493. -- high flags: 0001
  494. -- rect: left=35 top=192 right=203 bottom=113
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 0 / 0
  497. -- text alignment: 1
  498. -- font id: 0
  499. -- text size: 12
  500. -- style flags: 0
  501. -- line height: 16
  502. -- part name: 
  503. ----- HyperTalk script -----
  504. on mouseUp
  505.   if style of me is "opaque" then
  506.     set style of me to "transparent"
  507.     add 1 to card field "Times"
  508.   end if
  509. end mouseUp
  510.  
  511.  
  512. -- part 23 (button)
  513. -- low flags: 00
  514. -- high flags: 0001
  515. -- rect: left=121 top=192 right=203 bottom=199
  516. -- title width / last selected line: 0
  517. -- icon id / first selected line: 0 / 0
  518. -- text alignment: 1
  519. -- font id: 0
  520. -- text size: 12
  521. -- style flags: 0
  522. -- line height: 16
  523. -- part name: 
  524. ----- HyperTalk script -----
  525. on mouseUp
  526.   if style of me is "opaque" then
  527.     set style of me to "transparent"
  528.     add 1 to card field "Times"
  529.   end if
  530. end mouseUp
  531.  
  532.  
  533. -- part 24 (button)
  534. -- low flags: 00
  535. -- high flags: 0001
  536. -- rect: left=207 top=192 right=203 bottom=285
  537. -- title width / last selected line: 0
  538. -- icon id / first selected line: 0 / 0
  539. -- text alignment: 1
  540. -- font id: 0
  541. -- text size: 12
  542. -- style flags: 0
  543. -- line height: 16
  544. -- part name: 
  545. ----- HyperTalk script -----
  546. on mouseUp
  547.   if style of me is "opaque" then
  548.     set style of me to "transparent"
  549.     add 1 to card field "Times"
  550.   end if
  551. end mouseUp
  552.  
  553.  
  554. -- part 25 (button)
  555. -- low flags: 00
  556. -- high flags: 0001
  557. -- rect: left=293 top=276 right=287 bottom=371
  558. -- title width / last selected line: 0
  559. -- icon id / first selected line: 0 / 0
  560. -- text alignment: 1
  561. -- font id: 0
  562. -- text size: 12
  563. -- style flags: 0
  564. -- line height: 16
  565. -- part name: 
  566. ----- HyperTalk script -----
  567. on mouseUp
  568.   if style of me is "opaque" then
  569.     set style of me to "transparent"
  570.     add 1 to card field "Times"
  571.   end if
  572. end mouseUp
  573.  
  574.  
  575. -- part 26 (button)
  576. -- low flags: 00
  577. -- high flags: 0001
  578. -- rect: left=379 top=192 right=203 bottom=457
  579. -- title width / last selected line: 0
  580. -- icon id / first selected line: 0 / 0
  581. -- text alignment: 1
  582. -- font id: 0
  583. -- text size: 12
  584. -- style flags: 0
  585. -- line height: 16
  586. -- part name: 
  587. ----- HyperTalk script -----
  588. on mouseUp
  589.   if style of me is "opaque" then
  590.     set style of me to "transparent"
  591.     add 1 to card field "Times"
  592.   end if
  593. end mouseUp
  594.  
  595.  
  596. -- part 27 (button)
  597. -- low flags: 80
  598. -- high flags: 4000
  599. -- rect: left=379 top=192 right=203 bottom=464
  600. -- title width / last selected line: 0
  601. -- icon id / first selected line: 0 / 0
  602. -- text alignment: 1
  603. -- font id: 0
  604. -- text size: 12
  605. -- style flags: 0
  606. -- line height: 16
  607. -- part name: Hilite
  608.  
  609.  
  610. -- part 28 (button)
  611. -- low flags: 00
  612. -- high flags: 0000
  613. -- rect: left=35 top=192 right=287 bottom=464
  614. -- title width / last selected line: 0
  615. -- icon id / first selected line: 0 / 0
  616. -- text alignment: 1
  617. -- font id: 0
  618. -- text size: 12
  619. -- style flags: 0
  620. -- line height: 16
  621. -- part name: 
  622. ----- HyperTalk script -----
  623. on mouseUp
  624.   put trunc((the clickH-34)/86) * 86 + 77 into item 1 of buttonLoc
  625.   put trunc((the clickV-191)/12) * 12 + 197 into item 2 of buttonLoc
  626.   if the loc of card button "Hilite" is buttonLoc AND visible of card button "Hilite" then
  627.     show card button "Hilite" at buttonLoc
  628.     repeat with index = 22 to 26
  629.       if buttonLoc is within the rect of card button id index then
  630.         send "mouseUp" to card button id index
  631.         exit repeat
  632.       end if
  633.     end repeat
  634.   else show card button "Hilite" at buttonLoc
  635. end mouseUp
  636.  
  637.  
  638.  
  639. -- part 29 (field)
  640. -- low flags: 01
  641. -- high flags: 0000
  642. -- rect: left=47 top=150 right=164 bottom=128
  643. -- title width / last selected line: 0
  644. -- icon id / first selected line: 0 / 0
  645. -- text alignment: 0
  646. -- font id: 3
  647. -- text size: 9
  648. -- style flags: 0
  649. -- line height: 12
  650. -- part name: Class
  651.  
  652.  
  653. -- part 30 (field)
  654. -- low flags: 01
  655. -- high flags: 0000
  656. -- rect: left=187 top=150 right=164 bottom=211
  657. -- title width / last selected line: 0
  658. -- icon id / first selected line: 0 / 0
  659. -- text alignment: 65535
  660. -- font id: 3
  661. -- text size: 9
  662. -- style flags: 0
  663. -- line height: 12
  664. -- part name: Times
  665.  
  666.  
  667. -- part 32 (button)
  668. -- low flags: 00
  669. -- high flags: 0000
  670. -- rect: left=173 top=93 right=131 bottom=187
  671. -- title width / last selected line: 0
  672. -- icon id / first selected line: 0 / 0
  673. -- text alignment: 1
  674. -- font id: 0
  675. -- text size: 12
  676. -- style flags: 0
  677. -- line height: 16
  678. -- part name: Scroll
  679. ----- HyperTalk script -----
  680. on mouseUp
  681.   lock screen
  682.   resetCard
  683.   go next
  684.   unlock screen
  685. end mouseUp
  686.  
  687.  
  688.  
  689. -- part contents for background part 19
  690. ----- text -----
  691. 12
  692. 12
  693. 12
  694. 12
  695. 12
  696. 11
  697. 12
  698. 12
  699.  
  700. -- part contents for background part 20
  701. ----- text -----
  702. 47
  703. 80
  704. 53
  705. 54
  706. 52
  707. 102
  708. 48
  709. 13
  710.  
  711. -- part contents for background part 21
  712. ----- text -----
  713. Abrosimoff, Michael John
  714. Adams, Bryan
  715. Alexander, Rick
  716.  Alexander, Susan
  717. Allsop, Blair M.
  718. Azimov, Isaac
  719.  Barisoff, Larissa
  720. Bunyan, Paul
  721.  
  722.  
  723.  
  724. -- part contents for background part 22
  725. ----- text -----
  726. Industrial
  727. Academic
  728. Academic
  729. Academic
  730. Academic
  731. Academic
  732. Academic
  733. Commercial
  734.  
  735. -- part contents for background part 23
  736. ----- text -----
  737. 0.0
  738. 0.0
  739. 0.0
  740. 0.0
  741. 0.0
  742. 0.0
  743. 0.0
  744. 0.0
  745.  
  746. -- part contents for background part 24
  747. ----- text -----
  748. 0.0
  749. 0.0
  750. 0.0
  751. 0.0
  752. 0.0
  753. 0.0
  754. 0.0
  755. 0.0
  756.  
  757. -- part contents for background part 25
  758. ----- text -----
  759. 12.0
  760. 12.0
  761. 12.0
  762. 12.0
  763. 12.0
  764. 12.0
  765. 12.0
  766. 12.0
  767.  
  768. -- part contents for card part 29
  769. ----- text -----
  770. Algebra 11 (1)
  771.  
  772. -- part contents for card part 30
  773. ----- text -----
  774. 0